home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / tools / mfrinced / load_file_req.ced < prev    next >
Text File  |  1995-03-09  |  3KB  |  97 lines
  1.  
  2. /*«««««««««««««««««««««««  Load_File_req.ced  »»»»»»»»»»»»»»»»»»»»»»»»»»»»>
  3.  «                                                                       »
  4.  «    Program:          Load_File_req.ced                                »
  5.  «    Abstract:         rexx prgm to use mfr in CED 3.5                  »
  6.  «    Author:           Benjamin Lear (BL)                               »
  7.  «    Version:        1.0                                              »
  8.  «    Status:         Public Domain , NO WARRENTY !!!                  »
  9.  «    Date:             17.8.1993                                        »
  10.  «    Last modified:    18.8.1993                                        »
  11.  «                                                                       »
  12.  ««««««««««««««««««««««««««   ««««« · »»»»»   »»»»»»»»»»»»»»»»»»»»»»»»»»»*/
  13.  
  14. /* NOTE:
  15. recommended to put this in your user-startup in order to increase speed:
  16. resident c:SetDefPubScreen PURE
  17. */
  18.  
  19. OPTIONS RESULTS
  20.  
  21.  
  22. /*
  23. ADDRESS COMMAND "resident c:SetDefPubScreen PURE"
  24. */
  25.  
  26. IF ~show('l','rexxsupport.library') THEN 
  27. DO
  28.    CALL addlib('rexxsupport.library',0,-30)
  29. END
  30. IF ~show('l','rexxarplib.library') THEN 
  31. DO
  32.    CALL addlib('rexxarplib.library',0,-30)
  33. END
  34.  
  35.  
  36. /* Make sure the libraries are resident in memory ... */
  37. IF ~showlist('L','rexxarplib.library') THEN 
  38. DO
  39.    say "Loading RexxArpLib Library ..."
  40.    address command 'loadlib libs:screenshare.library'
  41.    address command 'loadlib libs:rexxarplib.library'
  42. END
  43.  
  44. IF ~show('l', "rexxarplib.library") THEN 
  45. DO
  46.   check = addlib('rexxsupport.library',0,-30,0) 
  47.   check = addlib('rexxmathlib.library',0,-30,0)
  48.   check = addlib('rexxarplib.library',0,-30,0)   
  49. END
  50.  
  51. IF ~show('l','req.library') THEN 
  52. DO
  53.    CALL addlib('req.library',0,-60)
  54. END
  55.  
  56.  
  57. STATUS 20             /* Dir of curr. CED - window  */
  58. curr_dir = result 
  59.  
  60. /* set a default directory : */
  61.  
  62. IF ( curr_dir = '') THEN
  63. DO
  64.   curr_dir = "T:"
  65. END
  66.  
  67. "Make screen public ?"         /* make CED - public : */
  68.  
  69. /* make CED - default public screen : */
  70. /* I'll be very glad, if someone could tell me how to do this in arexx */
  71.  
  72. ADDRESS COMMAND SetDefPubScreen CygnusEdScreen1
  73.  
  74. CALL filereq("Select a file ...", curr_dir,"" )   /* -> req.library functions */
  75. selected_file = result
  76.  
  77. ADDRESS COMMAND SetDefPubScreen $PUBLICSCREEN 
  78.  
  79. "use custom scrolling routines?"
  80.  
  81. /* loading selected file: */
  82.  
  83. IF ( selected_file ~= '' ) THEN
  84. DO
  85.   STATUS 18              /* num of changes in act. file */ 
  86.   modified = result
  87.   
  88.   IF ( modified ~= 0 ) THEN
  89.   DO
  90.     OPEN NEW
  91.   END
  92.   OPEN """" || selected_file || """"
  93. END 
  94.  
  95. EXIT 0
  96. /*                          ««« THE · END »»»                */
  97.